let _ =
  let filename = ref "" in
  let anonFun s = filename := s in
  Arg.parse [] anonFun "Usage: see manual.";
    try 
      Eval.initialise ();
      let file = Helper.read !filename in
      ignore(Eval.eval file)
    with Failure a -> print_string a;
print_newline();
